home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs18.d81 / graphaid.arc / MENU (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  29 lines
  1. 2 REM GRAPHIC AIDS (C)1985 BRIAN CONRAD
  2. 3 REM BLUE MOUNTAIN COMMODORE USER'S GROUP
  3. 4 REM WALLA WALLA, WASHINGTON
  4. 8 FORI=1TO7:READA$(I):NEXT
  5. 10 POKE53280,11:POKE53281, 0:PRINT"[147][142]";
  6. 11 PRINT"            ucccccccccccccci            ************b GRAPHIC AIDS b**";
  7. 12 PRINT"**********            jcccccccccccccck             [155]1  PSHOP FLIP : CR";
  8. 13 PRINT"EATE REVERSED PRINT-                  SHOP SCREENS           [129] [155]2[129]  KOAL";
  9. 14 PRINT"A FLIP : CREATE REVERSED KOALA                   SCREENS                ";
  10. 15 PRINT"[158] [155]3[158]  DOODLE/PSHOP: CONVERT DOODLE SCREENS                  TO PRINTSHO";
  11. 16 PRINT"P FORMAT    [155]4  PSHOP/DOODLE: CONVERT PRINTSHOP                       ";
  12. 17 PRINT"SCREENS TO DOODLE      [155]5  PSHOP/KOALA : CONVERT PRINTSHOP            ";
  13. 18 PRINT"           SCREENS TO KOALA      [156] [155]6[156]  DOODLE/KOALA: CONVERT DOODLE SCR";
  14. 19 PRINT"EENS                  TO KOALA FORMAT       [154] [155]7[154]  KOALA KRUNCHER: CREAT";
  15. 20 PRINT"ES COMPACT                         KOALA FILES WHICH                    ";
  16. 21 PRINT"   CAN BE LOADED AND                       DISPLAYED FROM BASIC[158][184][184][184][184][184][184][184][184]";
  17. 22 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]       [146][154]PRESS(1-7)FORSELECTION[158]    ";
  18. 23 PRINT"    [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]  BLUE MOUNTAIN COMMODORE U";
  19. 24 PRINT"SER'S GROUP          WALLA WALLA, WASHINGTON                            ";
  20. 25 PRINT"                    "
  21. 26 POKE2023,160:POKE56295,5
  22. 27 GETA$:IFA$>"7"ORA$<"1"THEN27
  23. 28 I=VAL(A$)
  24. 29 PRINT"[147]LOAD"+CHR$(34)+A$(I)+CHR$(34)",8"
  25. 30 PRINT"RUN"
  26. 32 POKE631,13:POKE632,13:POKE198,2:NEW
  27. 40 DATA PSHOP FLIP,KOALA FLIP,DOODLE/PSHOP,PSHOP/DOODLE,PSHOP/KOALA
  28. 42 DATA DOODLE/KOALA,KOALA KRUNCHER
  29.